Dim fso, folder, files, OutputFile, subF
Dim strPath
Set fso = CreateObject("Scripting.FileSystemObject")
strPath = "C:\windows"
json=""
Set folder = fso.GetFolder(strPath)
Set files = folder.Files
Set fold=folder.SubFolders
For each subF In fold
 
 Wscript.Echo subF.Name
  
Next
For each item In files
  
 Wscript.Echo item.Name
  
Next


